﻿<Serializable()> _
Public Class Ecorredora

#Region "           Atributos                       "
    Private _idCorredora As Int32
    Private _nombreCorredora As String
    Private _apePatCorredora As String
    Private _apeMatCorredora As String
    Private _emailCorredora As String
    Private _telefonoCorredora As String
    Private _celularCorredora As String
    Private _direccionCorredora As String
    Private _estado As String
    Private _desEstado As String
    Private _idUsuario As Integer
#End Region

#Region "           Propiedades                     "
    Public Property idCorredora() As Int32
        Get
            Return _idCorredora
        End Get
        Set(ByVal value As Int32)
            _idCorredora = value
        End Set
    End Property
    Public Property nombreCorredora() As String
        Get
            Return _nombreCorredora
        End Get
        Set(ByVal value As String)
            _nombreCorredora = value
        End Set
    End Property
    Public Property apePatCorredora() As String
        Get
            Return _apePatCorredora
        End Get
        Set(ByVal value As String)
            _apePatCorredora = value
        End Set
    End Property
    Public Property apeMatCorredora() As String
        Get
            Return _apeMatCorredora
        End Get
        Set(ByVal value As String)
            _apeMatCorredora = value
        End Set
    End Property
    Public Property emailCorredora() As String
        Get
            Return _emailCorredora
        End Get
        Set(ByVal value As String)
            _emailCorredora = value
        End Set
    End Property
    Public Property telefonoCorredora() As String
        Get
            Return _telefonoCorredora
        End Get
        Set(ByVal value As String)
            _telefonoCorredora = value
        End Set
    End Property
    Public Property celularCorredora() As String
        Get
            Return _celularCorredora
        End Get
        Set(ByVal value As String)
            _celularCorredora = value
        End Set
    End Property
    Public Property direccionCorredora() As String
        Get
            Return _direccionCorredora
        End Get
        Set(ByVal value As String)
            _direccionCorredora = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property desEstado() As String
        Get
            Return _desEstado
        End Get
        Set(ByVal value As String)
            _desEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return nombreCorredora & " " & apePatCorredora & " " & apeMatCorredora
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idCorredora As Int32, ByVal nombreCorredora As String)
        Me.idCorredora = idCorredora
        Me.nombreCorredora = nombreCorredora
    End Sub
    Public Sub New(ByVal idCorredora As Int32, ByVal nombreCorredora As String, ByVal apeMatCorredora As String, ByVal apePatCorredora As String, _
                   ByVal emailCorredora As String, ByVal telefonoCorredora As String, ByVal celularCorredora As String, ByVal direccionCorredora As String, _
                   ByVal estado As String, ByVal idUsuario As Integer)
        Me.idCorredora = idCorredora
        Me.nombreCorredora = nombreCorredora
        Me.apeMatCorredora = apeMatCorredora
        Me.apePatCorredora = apePatCorredora
        Me.emailCorredora = emailCorredora
        Me.telefonoCorredora = telefonoCorredora
        Me.celularCorredora = celularCorredora
        Me.direccionCorredora = direccionCorredora
        Me.estado = estado
        Me.desEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
    End Sub
    Public Sub New(ByVal idCorredora As Int32, ByVal nombreCorredora As String, ByVal apeMatCorredora As String, ByVal apePatCorredora As String)
        Me.idCorredora = idCorredora
        Me.nombreCorredora = nombreCorredora
        Me.apeMatCorredora = apeMatCorredora
        Me.apePatCorredora = apePatCorredora
    End Sub
#End Region

End Class
